home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9209.d64 / oscars dustbin (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 9 V=53248:J=56320:POKEV+32,.:POKEV+33,11:PRINT"[147][152]":POKE2040,13:POKE2041,14:POKEV,229:POKEV+1,171
  2. 11 POKEV+39,5:A(1)=832:A(2)=896:FORS=1TO2:FORN=.TO62:READQ:POKEA(S)+N,Q:NEXTN,S:POKEV+28,3
  3. 12 POKEV+37,1:POKEV+38,.:POKE211,31:POKE214,.:SYS58640:FORP=.TO23:PRINT"[170][157]";:NEXT:POKE211,.
  4. 15 F$="(W)[157][157][213][178][215][215][195][195][157][157][157][157][157][219][213][201][176][201][157][157][157][157][157][194][202][203][177][173][157][157][157][157][157][157][202][203]GP[213][157][157][157][157][157][213][195][195][195][194][195][157][157][157][157][157][157][202][201][213][201][219][219]"
  5. 16 F$=F$+"[157][157][157][157][157][194][202][203][194][202][203][157][157][157][157][157][157][157][157][195][195][203]  [203]":F$=F$+"[157][157][157][157][157][157][195][195][195][195][195][195][195]":F$="[157][157][157][157][157][157][157][157]"+F$
  6. 17 F$=F$+"[195][157][157][157][157][157][157][157][157][158]OSCAR'S[157][157][157][157][157][157]DUSTBIN[157][157][157][157][157][157][157][157][152][195][195][195][195][195][195][195][195][157][157][157][157][157][157][157]SCORE:"
  7. 18 F$=F$+"[157][157][157][157][157][157][163][163][163][163][163][163]":POKE214,23:SYS58640:FORP=.TO39:PRINT"[183]";:NEXT:PRINTF$:POKE211,24
  8. 19 T$="[154][213][163][163][163][163][146][201][157][157][157][157][157][194][194][194][194][157][157][157][157][194][194][194][194][157][157][157][157][194][194][194][194][157][157][157][157][194][194][194][194][157][157][157][157]    [146]"
  9. 20 POKE214,17:SYS58640:PRINTT$:PRINT"":GOSUB205:GOSUB200:POKEV+2,.:POKEV+3,155:POKEV+21,3:POKEV+27,2
  10. 112 POKEV+28,3:POKEV+2,.:POKEV+3,155:C=INT(3+2*RND(0)):POKEV+40,C:FORX=8TO232STEP14:POKEV+2,X
  11. 113 IFPEEK(J)=126THENIFPEEK(V+21)=2ORPEEK(V+21)=.THENGOSUB200:DATA,,,,,,2,170,,3,239,,10,118
  12. 114 IFPEEK(J)=125ANDPEEK(V+21)=3THENGOSUB201:DATA128,9,85,128,9,221,128,9,85,128,10,102,128
  13. 117 NEXTX:IFPEEK(V+21)=3THENFORR=155TO187:POKEV+3,R:NEXT:DATA11,255,128,10,254,128,2,170,,,168
  14. 118 IFC=4ANDPEEK(V+21)=3THENSC=SC+2:GOSUB205:GOTO112:DATA,,168,,162,170,40,162,170,40,,,,,,.
  15. 128 IFC=3ANDPEEK(V+21)=3THENSC=SC-4:GOSUB205:GOTO112:DATA,,,,,,,,,,,168,,2,150,,2,166,,2,170
  16. 130 POKEV+2,254:FORT=.TO20:NEXT:POKEV+2,.:GOTO112:DATA,2,170,,2,170,,,168,,,,,,,,,,,,,,,,,,.
  17. 200 POKE211,25:POKE214,16:SYS58640:PRINT"[154][146]    [161][145][157][172][145][157][188][145][157][146][161]":POKEV+21,3:RETURN:DATA,,,,,,,,,,,,,.
  18. 201 POKE211,29:POKE214,12:SYS58640:PRINT"[154][146] [157] [157] [157] [157] [157][157][157][157][157][162][190][188][146][162]":POKEV+21,2:RETURN:DATA,,,,,.
  19. 205 POKE211,33:POKE214,20:SYS58640:PRINT"[150]"SC"[157] ":IFSC>-1THENRETURN:DATA,,,.
  20. 206 POKE211,6:POKE214,11:SYS58640:PRINT"S L I M E  O V E R !":WAITJ,16,16:RUN
  21.